inherited sprPayTypes: TsprPayTypes
  Caption = #1058#1080#1087#1099' '#1086#1087#1077#1088#1072#1094#1080#1081' ('#1090#1086#1083#1100#1082#1086' '#1076#1083#1103' '#1095#1090#1077#1085#1080#1103')'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Top = 25
    Height = 529
    inherited PageControl1: TPageControl
      Height = 529
      inherited tsTab: TTabSheet
        inherited GroupBox3: TGroupBox
          Height = 501
          inherited dbgRefer: TDBGridEh
            Height = 484
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'CODE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'PAY_NAME'
                Footers = <>
                Width = 131
              end
              item
                EditButtons = <>
                FieldName = 'SIGN'
                Footers = <>
                Width = 70
              end
              item
                EditButtons = <>
                FieldName = 'CAN_MANUAL'
                Footers = <>
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'PENI_SIGN'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'PORDER'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SUBS_SIGN'
                Footers = <>
                Visible = False
              end>
          end
        end
      end
      inherited tsForm: TTabSheet
        OnHide = tsFormHide
        inherited GroupBox2: TGroupBox
          Top = 0
          Width = 784
          Height = 501
          Align = alClient
          inherited pnlButtons: TPanel
            Top = 468
            Width = 780
            inherited SpeedButton1: TSpeedButton
              Left = 581
            end
            inherited SpeedButton2: TSpeedButton
              Left = 683
            end
          end
          object Panel1: TPanel
            Left = 2
            Top = 15
            Width = 780
            Height = 151
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 1
            object Label1: TLabel
              Left = 12
              Top = 2
              Width = 80
              Height = 13
              Alignment = taRightJustify
              AutoSize = False
              Caption = #1048#1044
            end
            object Label2: TLabel
              Left = 12
              Top = 46
              Width = 80
              Height = 13
              Alignment = taRightJustify
              AutoSize = False
              Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1090#1080#1087#1072
            end
            object Label3: TLabel
              Left = 12
              Top = 24
              Width = 80
              Height = 13
              Alignment = taRightJustify
              AutoSize = False
              Caption = #1050#1086#1076
            end
            object Label4: TLabel
              Left = 12
              Top = 68
              Width = 80
              Height = 13
              Alignment = taRightJustify
              AutoSize = False
              Caption = #1047#1085#1072#1082' '#1089#1072#1083#1100#1076#1086
            end
            object Label5: TLabel
              Left = 12
              Top = 112
              Width = 80
              Height = 13
              Alignment = taRightJustify
              AutoSize = False
              Caption = #1055#1086#1088#1103#1076#1086#1082
            end
            object Label6: TLabel
              Left = 12
              Top = 90
              Width = 80
              Height = 13
              Alignment = taRightJustify
              AutoSize = False
              Caption = #1047#1085#1072#1082' '#1087#1077#1085#1080
            end
            object DBEditEh1: TDBEditEh
              Left = 98
              Top = 0
              Width = 57
              Height = 19
              AlwaysShowBorder = True
              Color = clInactiveCaptionText
              DataField = 'ID'
              DataSource = dscRefer
              EditButtons = <>
              Enabled = False
              Flat = True
              ReadOnly = True
              TabOrder = 0
              Visible = True
            end
            object DBEditEh2: TDBEditEh
              Left = 98
              Top = 44
              Width = 217
              Height = 19
              AlwaysShowBorder = True
              DataField = 'PAY_NAME'
              DataSource = dscRefer
              EditButtons = <>
              Flat = True
              ReadOnly = True
              TabOrder = 1
              Visible = True
            end
            object DBEditEh3: TDBEditEh
              Left = 98
              Top = 22
              Width = 57
              Height = 19
              AlwaysShowBorder = True
              DataField = 'CODE'
              DataSource = dscRefer
              EditButtons = <>
              Flat = True
              ReadOnly = True
              TabOrder = 2
              Visible = True
            end
            object DBComboBoxEh1: TDBComboBoxEh
              Left = 98
              Top = 66
              Width = 57
              Height = 19
              AlwaysShowBorder = True
              DataField = 'SIGN'
              DataSource = dscRefer
              EditButtons = <>
              Flat = True
              Items.Strings = (
                '-1'
                '0'
                '1')
              KeyItems.Strings = (
                '-1'
                '0'
                '1')
              ReadOnly = True
              TabOrder = 3
              Visible = True
            end
            object DBComboBoxEh2: TDBComboBoxEh
              Left = 98
              Top = 88
              Width = 57
              Height = 19
              AlwaysShowBorder = True
              DataField = 'PENI_SIGN'
              DataSource = dscRefer
              EditButtons = <>
              Flat = True
              Items.Strings = (
                '-1'
                '0'
                '1')
              KeyItems.Strings = (
                '-1'
                '0'
                '1')
              ReadOnly = True
              TabOrder = 4
              Visible = True
            end
            object DBEditEh4: TDBEditEh
              Left = 98
              Top = 110
              Width = 57
              Height = 19
              AlwaysShowBorder = True
              DataField = 'PORDER'
              DataSource = dscRefer
              EditButtons = <>
              Flat = True
              ReadOnly = True
              TabOrder = 5
              Visible = True
            end
            object DBCheckBoxEh1: TDBCheckBoxEh
              Left = 98
              Top = 132
              Width = 201
              Height = 17
              AlwaysShowBorder = True
              Caption = #1042#1086#1079#1084#1086#1078#1085#1086' '#1088#1091#1095#1085#1086#1077' '#1087#1088#1086#1074#1077#1076#1077#1085#1080#1077
              DataField = 'CAN_MANUAL'
              DataSource = dscRefer
              Flat = True
              ReadOnly = True
              TabOrder = 6
              ValueChecked = '1'
              ValueUnchecked = '0'
            end
          end
          object GroupBox4: TGroupBox
            Left = 2
            Top = 166
            Width = 780
            Height = 302
            Align = alClient
            Caption = ' '#1055#1088#1080#1079#1085#1072#1082#1080' '
            TabOrder = 2
            object tbTraits: TToolBar
              Left = 2
              Top = 15
              Width = 776
              Height = 3
              ButtonHeight = 23
              Caption = 'tbTraits'
              EdgeBorders = []
              Flat = True
              Images = MAIN.ImageList
              TabOrder = 0
              Visible = False
              object ToolButton31: TToolButton
                Left = 0
                Top = 0
                Action = aTraitAdd
              end
              object ToolButton34: TToolButton
                Left = 23
                Top = 0
                Width = 8
                Caption = 'ToolButton34'
                ImageIndex = 3
                Style = tbsSeparator
              end
              object ToolButton33: TToolButton
                Left = 31
                Top = 0
                Action = aTraitDel
              end
            end
            object dbgTraits: TDBGridEh
              Left = 2
              Top = 18
              Width = 776
              Height = 282
              Align = alClient
              DataGrouping.GroupLevels = <>
              DataSource = dscTraits
              Flat = True
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = []
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove, dghExtendVertLines]
              RowDetailPanel.Color = clBtnFace
              TabOrder = 1
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = []
              UseMultiTitle = True
              VTitleMargin = 5
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'ID'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'TRAITS_ID'
                  Footers = <>
                  Visible = False
                end
                item
                  EditButtons = <>
                  FieldName = 'P_TYPE'
                  Footers = <>
                  Visible = False
                end
                item
                  EditButtons = <>
                  FieldName = 'NAME'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'CODE'
                  Footers = <>
                  Width = 143
                end>
              object RowDetailData: TRowDetailPanelControlEh
              end
            end
          end
        end
      end
    end
  end
  inherited GroupBox1: TGroupBox
    Height = 0
  end
  inherited shblActionList: TActionList
    inherited aInsert: TAction
      Enabled = False
      Visible = False
    end
    inherited aDelete: TAction
      Enabled = False
      Visible = False
    end
    inherited aPost: TAction
      Enabled = False
      Visible = False
    end
    inherited aRollback: TAction
      Enabled = False
      Visible = False
    end
    object aTraitAdd: TAction
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      Enabled = False
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      ImageIndex = 9
      Visible = False
      OnExecute = aTraitAddExecute
    end
    object aTraitDel: TAction
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      Enabled = False
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1087#1088#1080#1079#1085#1072#1082
      ImageIndex = 2
      Visible = False
      OnExecute = aTraitDelExecute
    end
  end
  inherited dsRefer: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE PAY_TYPES'
      'SET '
      '    CODE = :CODE,'
      '    PAY_NAME = :PAY_NAME,'
      '    SIGN = :SIGN,'
      '    CAN_MANUAL = :CAN_MANUAL,'
      '    PORDER = :PORDER,'
      '    PENI_SIGN = :PENI_SIGN'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    PAY_TYPES'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO PAY_TYPES('
      '    CODE,'
      '    PAY_NAME,'
      '    SIGN,'
      '    CAN_MANUAL,'
      '    PORDER,'
      '    PENI_SIGN'
      ')'
      'VALUES('
      '    :CODE,'
      '    :PAY_NAME,'
      '    :SIGN,'
      '    :CAN_MANUAL,'
      '    :PORDER,'
      '    :PENI_SIGN'
      ')')
    RefreshSQL.Strings = (
      'select * from pay_types '
      'where(  1 = 1'
      '     ) and (     PAY_TYPES.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select * from pay_types '
      'where 1 = 1'
      'order by pay_name')
    AllowedUpdateKinds = [ukModify]
    UpdateTransaction = trRefer
    object dsReferID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsReferCODE: TFIBIntegerField
      DisplayLabel = #1050#1086#1076
      FieldName = 'CODE'
    end
    object dsReferPAY_NAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077' '#1090#1080#1087#1072
      FieldName = 'PAY_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferSIGN: TFIBSmallIntField
      DisplayLabel = #1047#1085#1072#1082' '#1089#1072#1083#1100#1076#1086
      FieldName = 'SIGN'
    end
    object dsReferCAN_MANUAL: TFIBSmallIntField
      DisplayLabel = #1056#1091#1095#1085#1072#1103
      FieldName = 'CAN_MANUAL'
    end
    object dsReferPORDER: TFIBSmallIntField
      DisplayLabel = #1055#1086#1088#1103#1076#1086#1082
      FieldName = 'PORDER'
    end
    object dsReferPENI_SIGN: TFIBSmallIntField
      DisplayLabel = #1047#1085#1072#1082' '#1087#1077#1085#1080
      FieldName = 'PENI_SIGN'
    end
    object dsReferSUBS_SIGN: TFIBSmallIntField
      DisplayLabel = #1047#1085#1072#1082' '#1089#1091#1073#1089#1080#1076#1080#1081
      FieldName = 'SUBS_SIGN'
    end
  end
  object dsTraits: TpFIBDataSet
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    PAY_TYPES2TRAITS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    RefreshSQL.Strings = (
      'select ptt.id, ptt.traits_id, ptt.p_type, t.name'
      'from pay_types2traits ptt'
      '  join pay_type_traits t on ptt.traits_id = t.id'
      ' where(  ptt.p_type = :pay_type_code'
      '     ) and (     PTT.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select ptt.id, ptt.traits_id, ptt.p_type, t.name, t.code'
      'from pay_types2traits ptt'
      '  join pay_type_traits t on ptt.traits_id = t.id'
      ' where ptt.p_type = :pay_type_code')
    AllowedUpdateKinds = []
    Transaction = trLists
    Database = MAINDM.pMainDatabase
    UpdateTransaction = trTraits
    Left = 454
    Top = 292
    object dsTraitsID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsTraitsTRAITS_ID: TFIBIntegerField
      FieldName = 'TRAITS_ID'
    end
    object dsTraitsP_TYPE: TFIBIntegerField
      FieldName = 'P_TYPE'
    end
    object dsTraitsNAME: TFIBStringField
      DisplayLabel = #1055#1088#1080#1079#1085#1072#1082
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object dsTraitsCODE: TFIBStringField
      DisplayLabel = #1050#1086#1076
      FieldName = 'CODE'
      Size = 16
      EmptyStrToNull = True
    end
  end
  object dscTraits: TDataSource
    DataSet = dsTraits
    Left = 484
    Top = 292
  end
  object trTraits: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 424
    Top = 293
  end
end
